home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / SendToFinalWriterGFX.rexx1 < prev    next >
Encoding:
Text File  |  1999-09-02  |  731 b   |  46 lines
  1. /* Imports GFX from TLNG 2.0 to FinalWriter97 */
  2. /* FW97-V1.0 © 19.07.99 by Jochen Grus        */
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS "FINALW.1"
  6.  
  7. WINTOFRONT
  8. 'insertimage' 'ram:0.gfx' 
  9. WIDTH 5
  10. FirstObject "SELECTED"
  11. GetDocItemPrefs "DECIMAL"
  12. deci=RESULT
  13. DocItemPrefs "DECIMAL PERIOD"
  14. GetPageSetup "WIDTH"
  15. pw=RESULT
  16. GetSectionSetup "INSIDE OUTSIDE"
  17. PARSE VAR RESULT x1 x2
  18. pw=pw-x1-x2
  19. FirstObject "SELECTED"
  20. o=RESULT
  21. type=RESULT
  22. PARSE VAR RESULT p l t w h
  23. IF o~=0 THEN
  24. DO
  25. cnt=0
  26. DO UNTIL o=0
  27. obj.cnt=o
  28. NextObject o "SELECTED"
  29. o=RESULT
  30. cnt=cnt+1
  31. END
  32. DO i=0 TO cnt-1
  33. GetObjectType obj.i
  34. type=RESULT
  35. GetObjectCoords obj.i
  36. PARSE VAR RESULT p l t w h
  37. DO
  38. GetObjectRotation obj.i
  39. rot=RESULT
  40. SetObjectCoords obj.i p x1 t pw/4 h/4
  41. END
  42. END
  43. END
  44. REDRAW
  45. EXIT
  46.